# setup indonesia dataset
dta <- read.dta(paste(datadir,
                      "indonesia_prepped.dta",
                      sep='/'))

loc.var <- "adm_id_dec00"
aggloc.var <- "adm_kabid_dec00"
t.var <- "adm_year"

# This variable sometimes comes in as a float
dta[,"dv_snpk_incidenttotcountNOCRIME"] <- as.integer(dta[,"dv_snpk_incidenttotcountNOCRIME"])

start.year <- 2007
end.year <- 2013
cv.runs <- 10

if (is.element(v,c("spike2YHalf", "spike2Y"))) {
  end.year <- 2012
}
start.time <- proc.time()[3]

fileext=""
